home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / evsbasic.arc / MICHIGAN.DMO (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  612b  |  38 lines
  1. 100 DEF FNMC(X)=-256*(X<0)+X
  2. 105 :
  3. 200 P1$=""
  4. 205 (null)
  5. 210 READ A,B
  6. 215 IF A=256 THEN (null)
  7. 220 P1$=P1$+CHR$(FNMC(A))+CHR$(FNMC(B))
  8. 225 (null)
  9. 230 :
  10. 300 (null)5:(null)0,0:(null)1:(null)
  11. 305 (null) 35,195
  12. 310 (null) P1$
  13. 315 (null)220,20
  14. 320 (null)"MICHIGAN"
  15. 325 A$=(null)(1)
  16. 330 :
  17. 335 FORI=1TO8
  18. 340 (null) 35+I,195-I
  19. 345 (null) P1$
  20. 350 NEXT
  21. 355 :
  22. 365 A$=(null)(1)
  23. 370 (null)16:(null)14,6:(null)14
  24. 375 :
  25. 380 :
  26. 50000 REM MICHIGAN
  27. 50005 DATA20,-26,4,-18,4,-24,-8,-18
  28. 50010 DATA-4,-22,6,-18,16,-30,4,15
  29. 50015 DATA4,0,4,-15,22,-5,-4,-6
  30. 50020 DATA10,-7,6,-4,24,6,24,10
  31. 50025 DATA16,11,12,6,4,7,-10,-2
  32. 50030 DATA8,7,4,22,-10,17,-16,8
  33. 50035 DATA-14,12,-4,10,8,8,10,-1
  34. 50040 DATA4,-4,6,-7,12,-7,12,-4
  35. 50045 DATA0,2,14,21,4,25,-6,2
  36. 50050 DATA-6,8,-16,25,-84,0,0,-4
  37. 50055 DATA-80,0,256,256
  38.